#!
# open file for write

open OUT, ">out.txt" or die"can not open out.txt,$!\n";

print OUT "hello, this program is $0\n";
print OUT "$_=$ENV{$_}\n" foreach keys %ENV;
print OUT "$_\n" for(abc...def);

close OUT;

